home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_52367.txt < prev    next >
Text File  |  1989-08-22  |  9KB  |  422 lines
  1. -- background: 52367 from stack: in
  2. -- bmap block id: 52588
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.3.1 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 2
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn (6 + i) to true  -- True is btn 7
  14.   else set the hilite of bg btn (6 + i) to false -- False is btn 8
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "CorrectAnswer"
  24.   hide fld "MasterFeedback"
  25.   hide bg btn "Done"
  26.   unlock screen
  27. end hideFeedback
  28.  
  29. on showFeedback
  30.   lock screen
  31.   show fld "Feedback1"
  32.   show fld "Feedback2"
  33.   show fld "CorrectAnswer"
  34.   show fld "MasterFeedback"
  35.   show bg btn "Done"
  36.   unlock screen
  37. end showFeedback
  38.  
  39. on feedback
  40.   global answerTracker
  41.   lock screen
  42.  
  43.   get (number of the target - 6)   -- True is btn 7, False is btn 8
  44.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  45.     -- don't overwrite if Q has been answered
  46.     if it = line 1 of fld "key" then
  47.       -- this is the correct answer
  48.       put "y" into line (line 2 of fld "key") of answerTracker
  49.     else put "n" into line (line 2 of fld "key") of answerTracker
  50.   end if
  51.  
  52.   put fld ("feedback" & it) into fld "masterFeedback"
  53.   show fld "masterFeedback"
  54.   show bg btn "Done"
  55.  
  56.   unlock screen
  57. end feedback
  58.  
  59.  
  60. -- part 3 (field)
  61. -- low flags: 01
  62. -- high flags: 0000
  63. -- rect: left=18 top=1 right=38 bottom=442
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 156
  68. -- text size: 24
  69. -- style flags: 10240
  70. -- line height: 32
  71. -- part name: Title
  72.  
  73.  
  74. -- part 5 (field)
  75. -- low flags: 81
  76. -- high flags: 0001
  77. -- rect: left=423 top=0 right=13 bottom=466
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 65535
  81. -- font id: 4
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: CardTitle
  86.  
  87.  
  88. -- part 14 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=443 top=5 right=72 bottom=512
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Instant Reference
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   instantReference "2.3.1"
  103. end mouseUp
  104.  
  105.  
  106. -- part 15 (button)
  107. -- low flags: 00
  108. -- high flags: 2000
  109. -- rect: left=480 top=143 right=172 bottom=511
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 1310 / 1310
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Student Services
  118. ----- HyperTalk script -----
  119. on mousedown
  120.   SSpopUp
  121. end mousedown
  122.  
  123. on mouseup
  124.   if the mouseloc is not within the rect of me then exit to hyperCard
  125.   doSS
  126. end mouseup
  127.  
  128.  
  129.  
  130. -- part 16 (button)
  131. -- low flags: 00
  132. -- high flags: 2000
  133. -- rect: left=482 top=176 right=205 bottom=511
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 162 / 162
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Help
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   Help
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 17 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=482 top=294 right=320 bottom=509
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 1236 / 1236
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Last Menu
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   go cd "Naming Facilities P/1"
  164. end mouseUp
  165.  
  166.  
  167. -- part 18 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=478 top=319 right=341 bottom=498
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 1238 / 1238
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Prev
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   lock screen
  182.   go prev
  183.   unlock screen with scroll right
  184. end mouseUp
  185.  
  186.  
  187. -- part 19 (button)
  188. -- low flags: 00
  189. -- high flags: 2000
  190. -- rect: left=493 top=319 right=341 bottom=512
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 1237 / 1237
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Next
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   lock screen
  202.   go next
  203.   unlock screen with scroll left
  204. end mouseUp
  205.  
  206.  
  207. -- part 20 (field)
  208. -- low flags: 01
  209. -- high flags: 0000
  210. -- rect: left=16 top=38 right=67 bottom=438
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 0
  214. -- font id: 156
  215. -- text size: 20
  216. -- style flags: 0
  217. -- line height: 26
  218. -- part name: Subtitle
  219.  
  220.  
  221. -- part 21 (field)
  222. -- low flags: 01
  223. -- high flags: 0000
  224. -- rect: left=16 top=70 right=125 bottom=449
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 156
  229. -- text size: 16
  230. -- style flags: 0
  231. -- line height: 17
  232. -- part name: Text
  233.  
  234.  
  235. -- part 22 (field)
  236. -- low flags: 01
  237. -- high flags: 0000
  238. -- rect: left=16 top=128 right=148 bottom=283
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 3
  243. -- text size: 10
  244. -- style flags: 256
  245. -- line height: 15
  246. -- part name: Instruction
  247.  
  248.  
  249. -- part 23 (button)
  250. -- low flags: 00
  251. -- high flags: A004
  252. -- rect: left=299 top=137 right=154 bottom=368
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: True
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   feedback
  264. end mouseUp
  265.  
  266.  
  267. -- part 25 (button)
  268. -- low flags: 00
  269. -- high flags: A004
  270. -- rect: left=375 top=137 right=154 bottom=444
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: False
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   feedback
  282. end mouseUp
  283.  
  284.  
  285. -- part 28 (field)
  286. -- low flags: 81
  287. -- high flags: 2007
  288. -- rect: left=8 top=36 right=94 bottom=231
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 0
  292. -- font id: 156
  293. -- text size: 16
  294. -- style flags: 0
  295. -- line height: 17
  296. -- part name: Feedback1
  297.  
  298.  
  299. -- part 29 (field)
  300. -- low flags: 81
  301. -- high flags: 2007
  302. -- rect: left=8 top=97 right=155 bottom=231
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 0
  306. -- font id: 156
  307. -- text size: 16
  308. -- style flags: 0
  309. -- line height: 17
  310. -- part name: Feedback2
  311.  
  312.  
  313. -- part 30 (field)
  314. -- low flags: 81
  315. -- high flags: 2007
  316. -- rect: left=239 top=36 right=154 bottom=462
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 0
  320. -- font id: 156
  321. -- text size: 16
  322. -- style flags: 0
  323. -- line height: 17
  324. -- part name: CorrectAnswer
  325.  
  326.  
  327. -- part 31 (field)
  328. -- low flags: 81
  329. -- high flags: 2004
  330. -- rect: left=147 top=132 right=304 bottom=356
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 0
  334. -- font id: 156
  335. -- text size: 16
  336. -- style flags: 0
  337. -- line height: 17
  338. -- part name: MasterFeedback
  339.  
  340.  
  341. -- part 32 (button)
  342. -- low flags: 80
  343. -- high flags: A002
  344. -- rect: left=215 top=279 right=296 bottom=284
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Done
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   global answerTracker
  356.   lock screen
  357.   if line (line 2 of fld "key") of answerTracker = "y" then
  358.     -- question correctly answered
  359.     set the hilite of bg btn (6 + line 1 of fld "key") to true
  360.     -- True btn is number 7, False is number 8
  361.   end if
  362.   hide fld "MasterFeedback"
  363.   hide bg btn "Done"
  364.   unlock screen
  365. end mouseUp
  366.  
  367.  
  368. -- part 33 (button)
  369. -- low flags: 00
  370. -- high flags: A004
  371. -- rect: left=177 top=321 right=340 bottom=322
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: Answer
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   global answerTracker
  383.   lock screen
  384.   put "y" into line (line 2 of fld "key") of answerTracker
  385.   put fld "CorrectAnswer" into fld "MasterFeedback"
  386.   show fld "MasterFeedback"
  387.   show bg btn "Done"
  388.   unlock screen
  389. end mouseUp
  390.  
  391.  
  392. -- part 42 (button)
  393. -- low flags: 00
  394. -- high flags: 2000
  395. -- rect: left=482 top=208 right=234 bottom=509
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 1234 / 1234
  398. -- text alignment: 1
  399. -- font id: 0
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: Lesson
  404. ----- HyperTalk script -----
  405. on mouseUp
  406.   lesson "2.3.1"
  407. end mouseUp
  408.  
  409.  
  410. -- part 43 (field)
  411. -- low flags: 81
  412. -- high flags: 0002
  413. -- rect: left=1 top=307 right=341 bottom=46
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 0
  417. -- font id: 3
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: Key
  422.